home *** CD-ROM | disk | FTP | other *** search
/ NetNews Offline 2 / NetNews Offline Volume 2.iso / news / comp / lang / rexx / 2010 < prev    next >
Encoding:
Internet Message Format  |  1996-08-06  |  1.4 KB
  1. Path: cloud9.net!not-for-mail
  2. From: jalvo@cloud9.net (John Alvord)
  3. Newsgroups: comp.lang.rexx
  4. Subject: Re: LINEIN Question (another one)
  5. Date: 16 Apr 1996 11:09:32 -0400
  6. Organization: Cloud 9 Internet, White Plains, NY, USA
  7. Distribution: inet
  8. Message-ID: <4l0d7c$moj@cloud9.net>
  9. References: <4ksfvk$3mpg@news-s01.ny.us.ibm.net>
  10. NNTP-Posting-Host: cloud9.net
  11. X-Newsreader: TIN [UNIX 1.3 950824BETA PL0]
  12.  
  13. jsbarbe@ibm.net wrote:
  14. : I can't figure out why my WARP REXX program fails.  It is looping 
  15. through files 
  16. : (obtained  with SysFileTree) and using LINEIN to read all the lines of each 
  17. : file and write them to a single output file.  WORKS GREAT until it hits the 32nd
  18. : file then it thinks all subsequent files have no lines.  ie ... while lines(readfile) > 1
  19. : finds a 0.  
  20. : 
  21. : First I set READFILE to be the path and file name from the SysFileTree.
  22. : The read loop is preceded by a LINEIN(READFILE,1,0)   (to make sure it's on 1st line)
  23. : The LINEIN in the read loop is:   LINEIN(READFILE)
  24. : 
  25. : It's NOT the 32nd file, since I can move it to another directory where it is within
  26. : the first 30 files and it reads fine 
  27. : 
  28. : It's not the subdirectory ... I've tried several and they all seem to fail at 32nd file.
  29. : 
  30. : Is there some limit of "open files" that I must close after reading?  Do I do that 
  31. : with a STREAM command?
  32. : .. I'm stumped.  Any ideas?  Thanks, Steve
  33. add a x=lineout(fn) after finishing each file processing.
  34.  
  35. john alvord
  36.